home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / comcorn / DAXDoc_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-01-11  |  4.0 KB  |  93 lines
  1. unit DAXDoc_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.75  $
  15. // File generated on 2/11/99 10:40:38 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\My Documents\DelphiMag, March99\DAXDoc\DAXDoc.tlb
  19. // IID\LCID: {C10BE34C-A81F-11D2-AF31-0000861EF0BB}\0
  20. // Helpfile: 
  21. // HelpString: Delphi ActiveX Document Server
  22. // Version:    1.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_DAXDoc: TGUID = '{C10BE34C-A81F-11D2-AF31-0000861EF0BB}';
  38.   IID_IDelphiAxDoc: TGUID = '{C10BE34D-A81F-11D2-AF31-0000861EF0BB}';
  39.   CLASS_DelphiAxDoc: TGUID = '{C10BE34F-A81F-11D2-AF31-0000861EF0BB}';
  40. type
  41.  
  42. // *********************************************************************//
  43. // Forward declaration of interfaces defined in Type Library            //
  44. // *********************************************************************//
  45.   IDelphiAxDoc = interface;
  46.   IDelphiAxDocDisp = dispinterface;
  47.  
  48. // *********************************************************************//
  49. // Declaration of CoClasses defined in Type Library                     //
  50. // (NOTE: Here we map each CoClass to its Default Interface)            //
  51. // *********************************************************************//
  52.   DelphiAxDoc = IDelphiAxDoc;
  53.  
  54.  
  55. // *********************************************************************//
  56. // Interface: IDelphiAxDoc
  57. // Flags:     (4416) Dual OleAutomation Dispatchable
  58. // GUID:      {C10BE34D-A81F-11D2-AF31-0000861EF0BB}
  59. // *********************************************************************//
  60.   IDelphiAxDoc = interface(IDispatch)
  61.     ['{C10BE34D-A81F-11D2-AF31-0000861EF0BB}']
  62.   end;
  63.  
  64. // *********************************************************************//
  65. // DispIntf:  IDelphiAxDocDisp
  66. // Flags:     (4416) Dual OleAutomation Dispatchable
  67. // GUID:      {C10BE34D-A81F-11D2-AF31-0000861EF0BB}
  68. // *********************************************************************//
  69.   IDelphiAxDocDisp = dispinterface
  70.     ['{C10BE34D-A81F-11D2-AF31-0000861EF0BB}']
  71.   end;
  72.  
  73.   CoDelphiAxDoc = class
  74.     class function Create: IDelphiAxDoc;
  75.     class function CreateRemote(const MachineName: string): IDelphiAxDoc;
  76.   end;
  77.  
  78. implementation
  79.  
  80. uses ComObj;
  81.  
  82. class function CoDelphiAxDoc.Create: IDelphiAxDoc;
  83. begin
  84.   Result := CreateComObject(CLASS_DelphiAxDoc) as IDelphiAxDoc;
  85. end;
  86.  
  87. class function CoDelphiAxDoc.CreateRemote(const MachineName: string): IDelphiAxDoc;
  88. begin
  89.   Result := CreateRemoteComObject(MachineName, CLASS_DelphiAxDoc) as IDelphiAxDoc;
  90. end;
  91.  
  92. end.
  93.